create_0_row_df <- function(name_vec = c()){
  for(i in 1:length(name_vec)){
    eval(parse(text = paste("vec_",i, " <- c(NA)", sep = "")))
  }
  order <- "out_df <- data.frame("
  for(i in 1:(length(name_vec) - 1)){
    order <- paste(order, "vec_",i, ", ", sep = "")
  }
  order <- paste(order, "vec_", length(name_vec), ")", sep = "")
  eval(parse(text = order))
  names(out_df) <- name_vec
  return(out_df[!is.na(out_df)[,1],])
}

#### Test Area ####

# out_df <- create_0_row_df(name_vec = c("row1", "col1", "name1"))

